The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/alphsort.src

Text File | 1990-10-17 | 299b | 17 lines

%%HP: T(3);
@ by Kevin Jessup.
@ used by DSORT; see DSORT.DOC.
\<< DUP SIZE 1 - 1
  FOR j 1 j
    FOR k k GETI \-> n1
      \<< GETI \-> n2
        \<< DROP
          IF n1 \->STR n2 \->STR >
          THEN k n2 PUTI n1 PUT
          END
        \>>
      \>>
    NEXT -1
  STEP
\>>